Procedure MudaY;

begin
     setfillstyle(0,1);
     WriteText(MaxX-102,TamY-22,Int2Str(calibracao*EscY[IEscY]));
     setfillstyle(11,9);
end;

Procedure MudaX;

begin
     setfillstyle(0,1);
     WriteText(MaxX-60,TamY-62,Int2Str(EscX[IEscX]));
     setfillstyle(11,9);
end;


